home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
boosters.arc
/
RIGHT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1980-01-01
|
880b
|
35 lines
{ --------------------------------
RIGHT justify a string in a field
-------------------------------- }
Function RIGHT ( S : AnyString;
N : Integer;
Pad : Char ) : AnyString;
{ AnyString is Type string[255] }
begin
Inline ( $1E/
$8C/$D0/
$8E/$C0/
$8E/$D8/
$8D/$BE/$09/$01/
$8B/$46/$06/
$88/$86/$08/$01/
$8A/$4E/$08/
$30/$ED/
$8D/$76/$09/
$01/$CE/
$4E/
$29/$C8/
$77/$06/
$8B/$4E/$06/
$EB/$0C/$90/
$8B/$C8/
$8B/$46/$04/
$FC/
$F3/$AA/
$8A/$4E/$08/
$01/$CF/
$4F/
$FD/
$F3/$A4/
$1F/$5D);
end;